home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / DLG4G18.M3 < prev    next >
Text File  |  1996-04-01  |  5KB  |  172 lines
  1. name Deckel Dialog 4 plane G18
  2.  
  3. % >4
  4. b >4
  5. Q 00
  6. N >5
  7. G >2
  8. F >3.1
  9. f >3.1 F
  10. S +->4
  11. C +->3.>4
  12. X +->3.>4
  13. x +->3.>4 X
  14. Y +->3.>4
  15. y +->3.>4 Y
  16. o +->3.>4 mult -1
  17. q +->3.>4 mult -1
  18. a +->3.>4
  19. z +->3.>4 Z
  20. g >2
  21. r >3.>4
  22. u +->3.>4 add -2
  23. Z +->3.>4
  24. I +->3.>4
  25. J +->3.>4
  26. K +->3.>4
  27. B +->3.>4
  28. T >2
  29. M >2
  30. W 00
  31. O 00
  32.  
  33. ModalLetters X Y Z F                  # List of letters that are modal    
  34.  
  35. ModalGs                               # List of g codes that are modal    
  36.  
  37. Sequence#s N 0 1 1                    # Char, freq, incr & start          
  38. First#? N                             # Y or N  'Output 1st sequence no.  
  39. Last#? N                              # Y or N  'Output last sequence no. 
  40.  
  41. HCode -X                              # X or X U  'Horizontal char.       
  42. VCode Z                               # Y or Y V  'Vertical char.         
  43. Dcode Y                               # Depth char.                       
  44. FeedCode F                            # Feed rate char.                   
  45.  
  46. Comment ( )                           # Begin End comment char.           
  47.  
  48. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  49. Coolant 8 9 8                         # On, Off & Mist m codes            
  50. DComp 41 42 40                        # Left, Right & Cancel m codes      
  51. LComp 43 49                           # On & Off codes                    
  52. Rapid G0                            # Rapid positioning word            
  53.  
  54. Spaces? Y                             # Y or N  'Spaces between words     
  55. Incremental? N                        # Y or N  'Inc or abs output        
  56. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  57. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  58.  
  59. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  60. Helical? N
  61.  
  62. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  63.  
  64. Drill 2                               # Drilling canned/manual cycle      
  65. N[Block] G0 x[H] y[Rplane] z[V]
  66. N[BLOCK] G81 S[Speed] f[Frate] o[Depth] u[Rplane]
  67. end
  68.  
  69. Peck 2                                # Pecking canned/manual cycle       
  70. N[Block] G0 x[H] y[Rplane] z[V]
  71. N[BLOCK] G83 S[Speed] f[Frate] o[Depth] q[VBite] a[-1] y[-0.01] u[Rplane]
  72. end
  73.  
  74. Tap 2                                 # Tapping canned/manual cycle       
  75. N[Block] G0 x[H] y[Rplane] z[V]
  76. N[BLOCK] G84 S[Speed] f[Frate] o[Depth] u[Rplane]
  77. end
  78.  
  79. Ream 2                                # Reaming canned/manual cycle       
  80. N[Block] G0 x[H] y[Rplane] z[V]
  81. N[BLOCK] G85 S[Speed] f[Frate] o[Depth] u[Rplane]
  82. end
  83.  
  84. Bore 2                                # Boring canned/manual cycle        
  85. N[Block] G0 x[H] y[Rplane] z[V]
  86. N[BLOCK] G82 S[Speed] f[Frate] o[Depth] q[VBite] a1 u[Rplane]
  87. end
  88.  
  89. Back 2                                # Back boring canned/manual cycle   
  90. N[Block] G0 x[H] y[Rplane] z[V]
  91. N[BLOCK] G86 S[Speed] f[Frate] o[Depth] u[Rplane]
  92. end
  93.  
  94. Cancel                                # Cancel a canned/manual cycle      
  95. N[Block] G80
  96. end
  97.  
  98. Index Z                               # Index the rotary table            
  99.     #N[Block] G0 Y[Val1]
  100.     #N[Block] G0 X[Val2] Z[Val3]
  101. N[Block] G0 Y[ToolD]
  102. N[Block] G0 C[Rotangle]
  103. N[Block] G0 Y[D]
  104. End
  105.  
  106.         #Ask [Val1] " Enter Retractvalue in Y for rotarytable  : " "100"
  107.         #Ask [Val2] " Enter Position in X for rotarytable      : " "0"
  108.         #Ask [Val3] " Enter Position in Z for rotarytable      : " "0"
  109.  
  110. StartCode                             # Start of the program              
  111. %[Program#]
  112. b[Program#] Q0
  113. End
  114.  
  115. 1stToolChange                         # First tool change                 
  116. N[Block] G18 T[Tool]
  117. N[Block] G0 C[Rotangle]
  118. N[Block] G0 X[H] Z[V] S[Speed] f[FRate] M[Cool]
  119. N[Block] G0 Y[D]
  120. End
  121.  
  122. Infeed                                # Enable cutter comp                
  123.    N[Block] G1 Y[D] F[Plunge]
  124. N[Block] G[Side] X[H] Z[V] F[FRate]
  125. end
  126.  
  127. Outfeed                               # Disable cutter comp               
  128. N[Block] G40
  129. N[Block] G1 X[H] Z[V]
  130. end
  131.  
  132. ToolChange                            # Secondary tool changes            
  133. N[Block] G0 Y[ToolD] M9
  134. N[Block] T[Tool]
  135. N[Block] G0 X[H] Z[V] S[Speed] f[FRate] M[Cool]
  136. N[Block] G0 Y[D]
  137. End
  138.  
  139. EndCode                               # End of the program                
  140. N[Block] G0 Y[ToolD] M9
  141. N[Block] M30
  142. W0
  143. O0
  144. End
  145.  
  146. LineCode                              # Linear move                       
  147. N[Block] G1 X[H] Z[V] Y[D]
  148. end
  149.  
  150. RapidCode                             # Rapid move                        
  151. N[Block] G0 X[H] Z[V] Y[D]
  152. end
  153.  
  154. CwCode                                # CW circular move                  
  155. N[Block] G2 F[FRate] X[H] Z[V] I[IVal] K[JVal]
  156. end
  157.  
  158. CcwCode                               # CCW circular move                 
  159. N[Block] G3 F[FRate] X[H] Z[V] I[IVal] K[JVal]
  160. end
  161.  
  162. Replace "g" with "G"
  163. Replace "r" with "F"
  164. Replace "o" with "Y"
  165. Replace "q" with "Y"
  166. Replace "a" with "Y"
  167. Replace "u" with "Y"
  168. Replace "b" with "(&%"
  169. Replace "Q" with "/000000)"
  170. Replace "W" with "?"
  171. Replace "O" with "0000"
  172.